home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / GRAPHICS / TOOLS / TGDN / Textures / WWW / !Button next >
Text File  |  1996-10-30  |  2KB  |  60 lines
  1. StartColourDefinition
  2.   Seed(&E03)
  3.   Phase(&2D)
  4.   Dithering(&1800)
  5.   LinearField(&D7,&30D2)
  6.   OneDimensionalStoreBufferTwo
  7.   LinearField(&A9FC,&FDDB)
  8.   OneDimensionalStoreBufferOne
  9.   LinearField(&87D1,&FC84)
  10.   CreateColoursUsingHSVData
  11. EndColourDefinition
  12.  
  13. |
  14. | This may take a while on the StrongARM
  15. |
  16. Seed(&E84F)
  17. Phase(&3C)
  18. CreateTwoDimensionalFilter(FractalNoise(FractalNoise(&B13E,&12),FractalNoise(FractalNoise(&EACD,&8),&16)))
  19. TwoDimensionalTransform
  20. TwoDimensionalEqualization
  21. SetVariable(&0,&23FF)
  22. SetVariable(&1,&1000)
  23. SetVariable(&2,&8000)
  24. SetVariable(&3,&7FFF)
  25. TwoDimensionalProcess(Variable(&2),Variable(&2),Combine(SimpleAddition,Variable(&2),Variable(&0)),Variable(&3),Combine(CeilingAddition,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsLessThan(X,Y),Variable(&2))),Overwrite)
  26. TwoDimensionalProcess(Combine(SimpleAddition,Variable(&2),Variable(&0)),Combine(SimpleSubtraction,Variable(&3),Variable(&0)),Variable(&3),Variable(&3),Combine(CeilingAddition,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsLessThan(X,Y),Variable(&2))),Overwrite)
  27. TwoDimensionalProcess(Variable(&2),Variable(&2),Variable(&3),Combine(SimpleAddition,Variable(&2),Variable(&0)),Combine(FloorSubtraction,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsGreaterThan(X,Y),Variable(&2))),Overwrite)
  28. TwoDimensionalProcess(Combine(SimpleSubtraction,Variable(&3),Variable(&0)),Combine(SimpleAddition,Variable(&2),Variable(&0)),Variable(&3),Variable(&3),Combine(FloorSubtraction,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsGreaterThan(X,Y),Variable(&2))),Overwrite)
  29. Dithering(&1000)
  30. MakeSprite
  31.  
  32. StartColourDefinition
  33.   Dithering(Zero)
  34.   LinearField(&C000,&FFFF)
  35.   OneDimensionalStoreBufferTwo
  36.   OneDimensionalStoreBufferOne
  37.   CreateColoursUsingRGBData
  38. EndColourDefinition
  39.  
  40. Seed(&E29)
  41. Phase(&29)
  42. NoiseToBeFiltered(&DE78)
  43. TwoDimensionalClear
  44. CreateOneDimensionalFilter(Noise(Noise(&CBA8,&354),&444))
  45. SmoothOneDimensionalTransform
  46. OneDimensionalEqualization
  47. SetVariable(&1,&1000)
  48. Rectangle(&6000,&1,&1,&AF3,&227D,Overwrite)
  49. Rectangle(&6000,&1,&1,&1CE9,&8C7,Overwrite)
  50. Rectangle(&FFFF,&FC00,&FA00,&C00,&D00,Overwrite)
  51. TwoDimensionalTransform
  52. TwoDimensionalEqualization
  53. Rectangle(&1,&0,&0,&FFFF,&FFFF,CeilingAddition)
  54. Rectangle(&FFFF,Combine(SimpleAddition,Variable(&2),Variable(&1)),Combine(SimpleAddition,Variable(&2),Variable(&1)),Combine(SimpleSubtraction,Variable(&3),Variable(&1)),Combine(SimpleSubtraction,Variable(&3),Variable(&1)),Zeroise)
  55. Dithering(&200)
  56. AddToSprite
  57. Checksum(&4749)
  58. End
  59.  
  60.